Wykres przedstawia liczbę nagród Nobla z danej dziedziny przyznanych w każdy roku na przestrzeni lat 1901-2019.
library(plotly)
library(dplyr)
df <- readr::read_csv("data/complete.csv");
# przygotowanie danych
df <- df %>%
group_by(awardYear, category) %>%
slice_max(sortOrder, n = 1) %>%
select(c(awardYear, category, sortOrder))
# wykres, domyślna kategoria - chemia
plt <- plot_ly(
data = df[df$category == "Chemistry",],
x = ~awardYear,
y = ~sortOrder,
color = ~category,
type = "bar"
) %>%
layout(
title = "Liczba nagórd Nobla z danej dziedziny przyznanych w każdym roku na przestrzeni lat 1901-2019",
yaxis = list(
title = "Liczba nagród",
tickvals = c(1, 2, 3)
),
xaxis = list(
title = "Rok",
# range slider
rangeselector = list(
buttons = list(list(step = "all"))),
rangeslider = list(type = "date")
),
legend = list(
title = list(text = "Dziedzina")
)
) %>%
# dodanie pozostałych kategorii
add_trace(
data = df[df$category != "Chemistry",],
x = ~awardYear,
y = ~sortOrder,
color = ~category,
type = "bar",
visible ='legendonly'
)